﻿Imports GBDZafiro
Public Class FrmGrupo

    Dim grup As New GBDZafiro.Grupo

    Private Sub FrmGrupo_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        cargargvGrupo()
    End Sub

    Protected Overrides Sub bnGuardar_Click(sender As System.Object, e As System.EventArgs)
        If updateAddGrupo() Then
            MyBase.bnGuardar_Click(sender, e)
            cargargvGrupo()
            gvGrupo.Enabled = True
        End If
    End Sub

    Protected Overrides Sub bnEliminar_Click(sender As System.Object, e As System.EventArgs)
        Dim rGvGrupo As DataGridViewRow = gvGrupo.CurrentRow
        If rGvGrupo IsNot Nothing Then
            With grup
                .grupo = rGvGrupo.Cells("DESCRIPCION").Value
                .idGrupo = rGvGrupo.Cells("ID_GRUPO").Value
            End With
            If msnBox.msnQuestion("¿Desea borrar el grupo " + grup.grupo + " ?") = Windows.Forms.DialogResult.Yes Then
                GBDZafiro.Grupo.Eliminar(grup)
                msnBox.msnInformacion("Grupo Borrado")
                MyBase.bnEliminar_Click(sender, e)
                cargargvGrupo()
                gvGrupo.Enabled = True
            End If

        Else
            msnBox.msnExclamacion("Seleccione un Grupo")
        End If
       
    End Sub

    Protected Overrides Sub bnCancelar_Click(sender As System.Object, e As System.EventArgs)
        MyBase.bnCancelar_Click(sender, e)
        gvGrupo.Enabled = True
    End Sub

    Private Sub gvGrupo_RowHeaderMouseClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gvGrupo.RowHeaderMouseClick
        Dim rowgvGrupo As New DataGridViewRow()
        rowgvGrupo = gvGrupo.CurrentRow
        grup = crearGrupo("", rowgvGrupo.Cells.Item("GRUPO").Value.ToString())

        tbGrupo.Text = rowgvGrupo.Cells.Item("GRUPO").Value.ToString()
    End Sub

    Private Sub gvGrupo_RowHeaderMouseDoubleClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles gvGrupo.RowHeaderMouseDoubleClick
        Dim frmsubgrupo As FrmSubGrupo
        Dim rowgvGrupo As New DataGridViewRow()
        rowgvGrupo = gvGrupo.CurrentRow
        grup = crearGrupo("", rowgvGrupo.Cells.Item("GRUPO").Value.ToString())

        frmsubgrupo = New FrmSubGrupo(grup)
        frmsubgrupo.ShowDialog(Me)
    End Sub

    Private Sub cargargvGrupo()
        gvGrupo.DataSource = Nothing
        gvGrupo.Rows.Clear()
        gvGrupo.DataSource = GBDZafiro.Grupo.ConsultarAll()
        gvGrupo.Columns("DESCRIPCION").HeaderText = "GRUPO"
        gvGrupo.Columns("ID_GRUPO").Visible = False
    End Sub

    Private Function crearGrupo(idgrupo As String, grupo As String) As GBDZafiro.Grupo
        Dim gr As New GBDZafiro.Grupo
        gr.idGrupo = idgrupo.ToUpper()
        gr.grupo = grupo.ToUpper()
        Return gr
    End Function

    Private Function updateAddGrupo() As Boolean
        Dim grupo As GBDZafiro.Grupo = crearGrupo("", tbGrupo.Text)
        If tbGrupo.Text.Length < 1 Then
            msnBox.msnExclamacion("Digite un Grupo")
            Return False
            Exit Function
        End If
        If GBDZafiro.Grupo.exisGrupo(grupo.grupo) Then
            
            msnBox.msnExclamacion("El Grupo ya existe")
            Return False
        Else
            GBDZafiro.Grupo.Nuevo(grupo)
            'msnBox.msnInformacion("Grupo Guardado")
            Return True
        End If
    End Function
   
End Class
